O6010(HELICAL ROUGH ID CYLINDER)
(ABSOLUTE MACRO)
(UNPROVEN)

(FORMAT G65/G66 QTMDRZEF)
(Q = #17 - STEPOVER IN Z/ DOC)
(T = #20 - TOOL DIAMETER)
(C = #3 - CUTTER COMP DISTANCE)
(FROM EDGE OF TOOL)
(D = #7 - PART INTERNAL DIAMETER)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8 - END OF CYLINDER IN Z)
(F = #9 - FEEDRATE)
(*********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
IF[#102GT[#100/2]]GOTO100
#103=#5001
#105=#5002
#113=#105
#115=#105+[[[#7/2]-[#20/2]]-#3]
#155=0
#105=#105+[[#7/2]-[#20/2]]
#155=#155+[[#7/2]-[#20/2]]
G0G90X#103Y#115
Z[#26+.1]
G1Z#26F#9
#106=#5003
G41Y#105
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1.
G03J-#155Z#106F#9
#106=#106-#102
END1
N10G90G03J-#155
G1G40Y#115
G0Z#18
X#103Y#113
M99
N100#3000= 1( Q VALUE TOO BIG )
